Option Explicit
Sub A_Sample050()
    Dim mySht As Worksheet
    Dim myWb  As Workbook
    Dim i     As Long
    i = 2					'w
    Set myWb = Workbooks(1)
    'ǳƨ즹
    Set mySht = myWb.Worksheets(i)
    MsgBox mySht.Name
    Set mySht = Nothing		'
    Set myWb = Nothing
End Sub
